﻿Public Partial Class Login
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnIniciarSesion_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnIniciarSesion.Click
        'DirectCast(Me.Master.FindControl("mensajesValidacion"), ValidationSummary).ValidationGroup = "ingresar"
        Page.Validate("")
        If (Page.IsValid) Then
            '//Si paso todas las validaciones, en el validador de clave me guardo el usuario...

            Response.Redirect("MenuPrincipal.aspx")
        Else
            '... y si no pasa lo borro por las dudas
            Session("Usuario") = Nothing
        End If
    End Sub

    Protected Sub cvUsuario_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles cvUsuario.ServerValidate
        Dim strValidacion As String = ""
        Try
            '//Primero valido el contenido de cada campo
            If (legajo.Text.Trim = "" OrElse contrasenaEncriptada.Value = "") Then
                strValidacion = "Debe ingresar legajo y clave para poder iniciar sesión"
            Else
                '//Los campos estan completos y en su formato requerido
                Dim oResultado As Object = Seguridad.ValidarUsuario(legajo.Text, contrasenaEncriptada.Value)

                If (oResultado.GetType() Is GetType(String)) Then
                    '//Si me devuelve un string es porque ocurrió un error durante la validacion
                    strValidacion = DirectCast(oResultado, String).ToString()
                Else
                    Session("UsuarioID") = DirectCast(oResultado, Dominio.Usuario).UsuarioID
                End If
            End If

        Catch ex As Exception
            args.IsValid = False
            strValidacion = "Oucrrió un error durante la validación del usuario.<br />Por favor, inténte nuevamente más tarde"

        Finally
            If (strValidacion <> "") Then
                args.IsValid = False
                cvUsuario.Text = strValidacion
            End If
        End Try
    End Sub

End Class